home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Gen. / Lotus MarketPlace™ Demo / Demo Files / Run Movies / card_3318.txt < prev    next >
Encoding:
Text File  |  1990-08-13  |  582 b   |  35 lines
  1. -- card: 3318 from stack: in
  2. -- bmap block id: 3762
  3. -- flags: 0000
  4. -- background id: 2617
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   global movies_global, number_of_movies, current_movie
  9.   put 5 into theLimit
  10.  
  11.   put the seconds into startTime
  12.   repeat
  13.     if (the seconds - startTime) > theLimit
  14.     then
  15.     exit repeat
  16.   end if
  17.   if the mouse is down
  18.   then
  19.   go to previous card
  20.   exit idle
  21. end if
  22. end repeat
  23. if current_movie < number_of_movies
  24. then
  25. add 1 to current_movie
  26. else
  27.   put 1 into current_movie
  28. end if
  29.  
  30. push card
  31. do line current_movie of movies_global
  32.  
  33. end idle
  34.  
  35.